perm filename CYCFRM.LSP[3,LMM]1 blob sn#037486 filedate 1973-04-22 generic text, type T, neo UTF8

(DEFPROP CYCFRMFNS
 (CYCFRMFNS
  (COMMENT ADVISES TO CHECK FOR STRUCFORMS)
  (AND LOADING
       (ADVISE1	(QUOTE ATTACHBIVS&LOOPS)
		(QUOTE BEFORE)
		(QUOTE (ARG1 ARG2 ARG3))
		(QUOTE
		 (COND
		  ((STRUCFORM? ARG3)
		   (RETURN (LIST (STRUCFORM FORM = (LIST (QUOTE ATTACHBIVS&LOOPS) ARG1 ARG2 ARG3)))))))))
  (AND LOADING
       (ADVISE1	(QUOTE ATTACHBIVALENTS)
		(QUOTE BEFORE)
		(QUOTE (ARG1 ARG2))
		(QUOTE
		 (COND
		  ((STRUCFORM? ARG2)
		   (RETURN (LIST (STRUCFORM FORM = (LIST (QUOTE ATTACHBIVALENTS) ARG1 ARG2)))))))))
  (AND LOADING
       (ADVISE1	(QUOTE ATTACHFVS)
		(QUOTE BEFORE)
		(QUOTE (ARG1 ARG2))
		(QUOTE
		 (IF (STRUCFORM? ARG2) THEN (RETURN (STRUCFORM FORM = (LIST (QUOTE ATTACHFVS) ARG1 ARG2)))))))
  (AND LOADING
       (ADVISE1	(QUOTE STRUCTURESWITHATOMS)
		(QUOTE BEFORE)
		(QUOTE (ARG1 ARG2))
		(QUOTE
		 (IF (STRUCFORM? ARG2)
		     THEN
		     (RETURN (STRUCFORM FORM = (LIST (QUOTE STRUCTURESWITHATOMS) ARG1 ARG2))))))))
VALUE)

(COMMENT ADVISES TO CHECK FOR STRUCFORMS)

(AND LOADING
     (ADVISE1 (QUOTE ATTACHBIVS&LOOPS)
	      (QUOTE BEFORE)
	      (QUOTE (ARG1 ARG2 ARG3))
	      (QUOTE
	       (COND
		((STRUCFORM? ARG3)
		 (RETURN (LIST (STRUCFORM FORM = (LIST (QUOTE ATTACHBIVS&LOOPS) ARG1 ARG2 ARG3)))))))))

(AND LOADING
     (ADVISE1 (QUOTE ATTACHBIVALENTS)
	      (QUOTE BEFORE)
	      (QUOTE (ARG1 ARG2))
	      (QUOTE
	       (COND
		((STRUCFORM? ARG2)
		 (RETURN (LIST (STRUCFORM FORM = (LIST (QUOTE ATTACHBIVALENTS) ARG1 ARG2)))))))))

(AND LOADING
     (ADVISE1 (QUOTE ATTACHFVS)
	      (QUOTE BEFORE)
	      (QUOTE (ARG1 ARG2))
	      (QUOTE
	       (IF (STRUCFORM? ARG2) THEN (RETURN (STRUCFORM FORM = (LIST (QUOTE ATTACHFVS) ARG1 ARG2)))))))

(AND LOADING
     (ADVISE1 (QUOTE STRUCTURESWITHATOMS)
	      (QUOTE BEFORE)
	      (QUOTE (ARG1 ARG2))
	      (QUOTE
	       (IF (STRUCFORM? ARG2)
		   THEN
		   (RETURN (STRUCFORM FORM = (LIST (QUOTE STRUCTURESWITHATOMS) ARG1 ARG2)))))))